Function DumpMyFile(strFile)
    Dim AcroApp 
    'Start Acrobat in the background
    Set AcroApp = CreateObject("AcroExch.App")
    AcroApp.Show

    Dim avCodeFile 
    Set avCodeFile = CreateObject("AcroExch.AVDoc") 'This is the code file
    Dim avFormCapture 
    Set avFormCapture = CreateObject("AcroExch.AVDoc") 'This will be each jpg in turn

    'Open the already created code file
    avCodeFile.Open "G:\web\baoguan\test\n.pdf", "Code File"
    Dim pdCodeFile 
    Set pdCodeFile = avCodeFile.GetPDDoc

    
    pdCodeFile.Save strFile
    pdCodeFile.Close
    avCodeFile.Close 0

    'Exit Acrobat
    AcroApp.Exit
    Set AcroApp = Nothing
    Set avCodeFile = Nothing
    Set pdCodeFile = Nothing
    Set avFormCapture = Nothing
End Function
Sub TESTDumpMyFile()
    Call DumpMyFile( "G:\web\baoguan\test\n.txt")
End Sub